home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / bbs / server / ratsoft / usr_warn / usr_warn.scp < prev   
Encoding:
Text File  |  1995-07-08  |  3.7 KB  |  127 lines
  1. ¯  3796                                   
  2. ; .______      ____ ____________ ____      ___     ___.______      _______
  3. ; |   _  \    /    \\  ______  //    \    /  /    /  /|   _  \    /  __  /
  4. ; |  | \  \  /  /\  \\/ |  | \//  /\  \  /  /    /  / |  | \  \  /  /_ \/
  5. ; |  |  \  \/  /__\  \  |  |  /  /__\  \/  /    /  /  |  |  \  \/  __/
  6. ; |  |__/  /\  \  /  /  |  |  \  \  /  /\  \___/  /   |  |  /  /\  \__/\
  7. ; |_______/  \__\/  /   |__|   \__\/  /  \____/\__\   |__| /__/  \_____/
  8. ;               /__/              /__/ 10 years in business 1996
  9. ;
  10. ; 2:201/303.8   90:1104/115.0 (Martin Haggbom)
  11. ;
  12. ; +46-(0)8-7782886  300->28.800bps USRobotics V-everything Modem
  13. ; BBS Server Atari TT030, 3.2GIG HD, CD-ROM Changer (7 discs)
  14. ; 6.0 of 8.1 GIG online, runs on RATSoft
  15. ;
  16. ; User Warner SCRIPT 0.50 for RATSoft Version 2.1 and higer versions
  17. ;
  18. ; This script cuts out the "Userpruge" log statistics from RATSoft.LOG
  19. ; and creates a list of users that are going to be deleted from the system
  20. ; in a few days (or deleted this night).
  21. ;
  22. ; e.g. let you logon.scp view the 'usr_warn.lst' file for the users
  23. ;      when they are loging on your system, mey be some one of them know
  24. ;      some one in the list and kan take contact with them and reminde
  25. ;      them of that thers account is going to be deleted!
  26. ;
  27. ; Installing this SCRIPT
  28. ;
  29. ; 1. copy the script to your ratsoft text folder (x:\RATSOFT\TEXT\)
  30. ;
  31. ; 2. put this in you schedular so it will be executed onece a day
  32. ;   (after midnight eg. 12:01am) or if you have some BATCH jobbs to add
  33. ;   it to.
  34. ;
  35. ; The script will create a file named USR_WARN.LST in your TEXT folder
  36. ; (x:\RATSOFT\TEXT\USR_WARN.LST)
  37. ;
  38. ; 3. put this in your LOGON.SCP
  39. ;
  40. ;   ENV "CM[SHOW:USR_WARN.LST]"
  41. ;
  42. ;    or in your LOGON.TXT
  43. ;
  44. ;   ENV "CM[SHOW:USR_WARN.LST]"
  45. ;
  46. ;   Now is everything ready to run!
  47. ;
  48. DIM scrap$(50)
  49. DIM log$(50)
  50. DIM _date$(50)
  51. DIM dellist$(500)
  52. DIM warlst$(50)
  53. DIM c$(50)
  54. DIM ok#(20)
  55. DIM c#(20)
  56. DIM count#(20)
  57. DIM lcount#(20)
  58.  
  59. _DATE$="%/% "+DATE$+" %/%"
  60. log$=config$(25)+"RATSOFT.LOG"
  61. OUT "{200}&57USER WARNER Version 0.50, by Martin Haggbom, Dataline System +46-(0)8-7782886 &50"
  62. IF EXIST (log$)=TRUE
  63.   OUT "&58 RATSoft.LOG file Ok! &50{200}"
  64. ELSE IF EXIST (log$)=FALSE
  65.   OUT "&60 RATSoft.LOG file don't exist! &50"
  66.   EXIT
  67. ENDIF
  68.  
  69. lcount#=0
  70. ok#=0
  71. c#=0
  72.  
  73. OPEN(log$,input)
  74. REPEAT
  75.   c#=c#+1
  76.   scrap$=read$
  77.   lcount#=LOC
  78.   OUT " Line "+STR$(c#)+", LOC "+STR$(lcount#)+"";
  79.   IF scrap$=_date$
  80.     OUT "&59 Line "+STR$(c#)+" LOC "+STR$(lcount#)+">> "+scrap$+" &50"
  81.     ok#=10
  82.   ENDIF
  83. UNTIL ok#=10
  84. CLOSE
  85.  
  86. count#=0
  87. ok#=0
  88. c#=0
  89.  
  90. OPEN (log$,input)
  91. SEEK(lcount#)
  92. REPEAT
  93.   scrap$=READ$
  94.   count#=count#+1
  95.   IF count#>6 AND MID$(scrap$,1,22)="* USRPURGE >> WARNING:"
  96.     c#=22
  97.     DO
  98.       c$=MID$(scrap$,c#,2)
  99.       EXIT IF c$=", "
  100.       c#=c#+2
  101.     LOOP
  102.     dellist$=dellist$+CHR$(38)+"58 Warning: "+CHR$(38)+"50 "+MID$(scrap$,24,50)+"{200}"
  103.   ENDIF
  104.   IF count#>6 AND MID$(scrap$,1,22)="* USRPURGE >> DELETED:"
  105.     c#=22
  106.     DO
  107.       c$=MID$(scrap$,c#,2)
  108.       EXIT IF c$=" ("
  109.       c#=c#+2
  110.     LOOP
  111.     dellist$=dellist$+CHR$(38)+"60 DELETED: "+CHR$(38)+"50 "+MID$(scrap$,24,50)+"{200}"
  112.   ENDIF
  113.   IF count#>6 AND MID$(scrap$,1,1)=" "
  114.     warlst$=config$(27)+"usr_warn.lst"
  115.     DOS(3,warlst$)
  116.     OPEN (warlst$,append)
  117.     WRITE "{200}&60 &09 Bulletin: "+date$+" &50{200}{200}"+dellist$
  118.     WRITE "If you know any one of this users, please remind them of that there"
  119.     WRITE "user account is going to be terminated in a few days if the don't!"
  120.     WRITE "call the BBS soon!!{200}"
  121.     WRITE "/// USR WARNER by Martin Haggbom, Dataline System +46-(0)8-7782886 ///{200}{134}"
  122.     CLOSE
  123.     ok#=10
  124.   ENDIF
  125. UNTIL ok#=10
  126. EXIT
  127.